home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / do-eve1r / module1.bas < prev    next >
BASIC Source File  |  1999-07-13  |  1KB  |  36 lines
  1. Attribute VB_Name = "Module1"
  2.  
  3. Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  4. Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  5. Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
  6.  
  7. Global Const EWX_SHUTDOWN = 1
  8. Global Const EWX_FORCE = 4
  9. Global Const EWX_REBOOT = 2
  10. Global Const SWP_NOMOVE = 2
  11. Global Const SWP_NOSIZE = 1
  12. Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  13. Global Const HWND_TOPMOST = -1
  14. Global Const HWND_NOTOPMOST = -2
  15.             
  16.  
  17. 'CD Door close command
  18. Sub CDClose()
  19.     retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
  20. End Sub
  21. 'CD Door open command
  22. Sub CDOpen()
  23.     retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
  24. End Sub
  25. 'Form Top most command
  26. Sub TopMost(Mee As Form)
  27. Dim lResult As Long
  28.     lResult = SetWindowPos(Mee.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  29. End Sub
  30. 'Shut down computer command
  31. Sub ShutDown()
  32.  ExitWindowsEx EWX_SHUTDOWN, 0
  33. End Sub
  34.  
  35.  
  36.